home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok20.lha / ComplexLib / txt / LongMathLibExt.def < prev    next >
Text File  |  1993-08-15  |  2KB  |  68 lines
  1.  
  2. (*********************************************************************
  3.  
  4.     :Program.       LongMathLibExt.def
  5.     :Author.        Gary Struhlik  
  6.     :Address.    -
  7.     :Phone.      -
  8.     :shortcut.      [gs]
  9.     :Version.       1.0   
  10.     :Date.          06.10.1988
  11.     :Copyright.  PD
  12.     :Language.      Modula-II
  13.     :Translator. M2Amiga
  14.     :Imports.     -
  15.     :UpDate.     -
  16.     :Contents.     Zusätzliche mathematische Funktionen
  17.     :Remark.     Für den Amiga Modula-2 Klub / Stuttgart
  18.     :Remark.     Am 01.01.1989 mit M2Amiga 3.2d neu kompiliert
  19.  
  20. **********************************************************************)
  21.  
  22. DEFINITION MODULE LongMathLibExt; (* für Datentyp LONGREAL *)
  23.  
  24. CONST
  25.  
  26.     ln10 = 2.302585092994045;  
  27.     pi   = 3.141592653589793;
  28.         e    = 2.718281828459045;
  29.         ln2  = 0.693147180559945;
  30.  
  31. PROCEDURE round ( x : LONGREAL ) : LONGINT;
  32.  
  33. PROCEDURE sqr ( x : LONGREAL ) : LONGREAL;
  34.  
  35. PROCEDURE tan ( x : LONGREAL ) : LONGREAL;
  36.  
  37. PROCEDURE arcsin ( x : LONGREAL ) : LONGREAL;
  38.  
  39. PROCEDURE arccos ( x : LONGREAL ) : LONGREAL;
  40.  
  41. PROCEDURE sinh ( x : LONGREAL ) : LONGREAL;
  42.  
  43. PROCEDURE cosh ( x : LONGREAL ) : LONGREAL;
  44.  
  45. PROCEDURE tanh ( x : LONGREAL ) : LONGREAL;
  46.  
  47. PROCEDURE log ( x : LONGREAL ) : LONGREAL;
  48.  
  49. PROCEDURE PwrOfTen ( x : LONGREAL ) : LONGREAL;
  50.  
  51. PROCEDURE lb ( x : LONGREAL ) : LONGREAL;
  52.  
  53. PROCEDURE PwrOfTwo ( x : LONGREAL ) : LONGREAL;
  54.  
  55. PROCEDURE arsinh ( x : LONGREAL ) : LONGREAL;
  56.  
  57. PROCEDURE arcosh ( x : LONGREAL ) : LONGREAL;
  58.  
  59. PROCEDURE artanh ( x : LONGREAL ) : LONGREAL;
  60.  
  61. PROCEDURE power ( x,y : LONGREAL ) : LONGREAL; (* x^y *)
  62.  
  63. PROCEDURE fact ( x : LONGREAL ) : LONGREAL; (*  Fakultät  *)
  64.  
  65. PROCEDURE sgn ( x : LONGREAL ) : LONGREAL; 
  66.                      (*   Vorzeichen -1.0, 0.0 oder +1.0  *)
  67. END LongMathLibExt.
  68.